home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 8
/
The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO
/
wildcat
/
stealth.zip
/
STEAL420.WCX
(
.txt
)
< prev
next >
Wrap
Wildcat! WCX
|
1996-09-22
|
2KB
|
125 lines
'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx 1560 bytes 11/15/122 01:49:30am
'! Code Segment Size :1015 bytes
'! Data Segment Size :5753 bytes
'! String Segment Size:545 bytes
'! Compiled with WCC version 4.20
Type Type26
Filler0(1 To 6) As Byte
s6 As String*70
Filler76(1 To 14) As Byte
s90 As String*70
Filler160(1 To 14) As Byte
s174 As String*70
Filler244(1 To 20) As Byte
w264 As Word
End Type
Dim s4463 As String
Dim s4467 As String
Dim s4471 As String
Dim s4475 As String
Dim s4479 As String
Dim s4508 As String
Dim ur4512 As UserRecord
Dim s5403 As String
Dim s5407 As String
Dim s5411 As String
Dim s5415 As String*12
Dim dt5427 As DateTime
Dim mh5433 As MessageHeader
CarrierCheck(-1)
MorePrompt(0)
Open ProgPath + "STEALTH.CFG" For Input As 1
Input #1, s4463
Input #1, s4467
Input #1, s4471
Input #1, s4475
Input #1, s4479
Input #1, s4508
Close 1
GetUser(ur4512, User.SecLevel)
If (UCase(User.SecLevel) = UCase(s4463)) <> 0 Then
Else
178 If (UCase(User.SecLevel) = UCase(s4467)) <> 0 Then
Else
215 If (UCase(User.SecLevel) = UCase(s4471)) <> 0 Then
Else
252 If (UCase(User.SecLevel) = UCase(s4475)) <> 0 Then
Else
289 If (UCase(User.SecLevel) = UCase(s4479)) <> 0 Then
Else
326 End
End If
End If
End If
End If
End If
327 Cls
DisplayFile("STEALTH")
Locate 16, 29
Print "@0F@ What's it gonna be ?> ";
Do
355 s5407 = UCase(InKey(1213417543))
If (InStr("QU", s5407) > 0 = 0) = 0 Then GoTo 400
Loop
400 Cls
s5411 = UCase(s5407)
Print ""
If (s5411 = "Q") = -1 Then
End
End If
446 If (s5411 = "U") = -1 Then
GoTo 474
End If
Do
Do
474 Cls
DisplayFile("STEALTH1")
Locate 8, 18
s5415 = InputMask("@0F@File Name of your Upload: @0E@", "XXXXXXXXXXXX", "", 1213417543)
Locate 12, 25
If (Not InputYesNo("@0B@Is the File " + UCase(s5415) + " @0F@?@0E@", 1213417543)) = 0 Then GoTo 574
Loop
574 If (Len(s5415) < 1) = 0 Then GoTo 617
Print "@01@ A Filename is Required !"
Print ""
Loop
Do
617 Locate 16, 15
s5403 = InputMask("@0F@File Desc.: @0E@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
Locate 20, 26
If (Not InputYesNo("@0B@Is the Description ok @0F@?@0E@", 1213417543)) = 0 Then GoTo 685
Loop
685 Cls
Print "@0F@Please begin your Upload Now...."
If Not ReceiveFile(s4508 + "\" + s5415, 1213417543) Then
Print
Print ""
Print "@0F@An ERROR has occured during your Upload!"
Else
758 Print
Print "@0F@Upload Successful!"
Delay 2
End If
777 GetUser(ur4512, "")
CurrentDateTime dt5427
mh5433.To = UCase(MakeWild.SysopName)
mh5433.From = User.Name
mh5433.Subject = UCase(s5415)
FlagSet mh5433.Flags, 3
AddMessage(mh5433, ProgPath + "Stealth.txt", "", 1213417543)
Cls
Print ""
Locate 8, 12
Print "@0F@ The Sysop has been notified of your Upload by E-Mail"
Delay 3
Print ""
Locate 10, 26
Print "@09@ Now returning you to the BBS"
Delay 2
ActivityLog "Uploaded a file via STEALTH"
End